home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / uvuuo.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  311 b   |  19 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4. Description:
  5. This code causes an unbound variable error if bar is unbound.
  6.  
  7. Usage:
  8. (foo 2) -> Unbound variable bar
  9. (define bar +)
  10. (foo 2) -> 5
  11. (fluid-let ((bar *)) (foo 2)) -> 6
  12. (set! bar)
  13. (foo 2) -> Unassigned variable bar
  14. |#
  15.  
  16. (declare (usual-integrations))
  17.  
  18. (define (foo x)
  19.   (bar 3 x))